home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_1 / esptlxsc.zip / ESPBBS.SLT next >
Text File  |  1991-11-13  |  2KB  |  57 lines
  1. /////////////////////////////  ESPBBS.SLT  ///////////////////////////////////
  2.  
  3. // This is a sample script for logging on to an ESPBBS based system.
  4.  
  5. str user_name[] = "Your Name";
  6.  
  7. // Put your name in the above line. The script will get the proper password
  8. // from the dialing directory (Telix puts that password in the script system
  9. // variable called _entry_pass).
  10.  
  11. // Before using this script for the first time, or when you make a change,
  12. // type 'cs espbbs' at the DOS prompt to compile the script for use by Telix.
  13.  
  14. // This script is a modification of "quickbbs.slt" that comes with Telix.
  15.  
  16. //////////////////////////////////////////////////////////////////////////////
  17.  
  18. main()
  19.  
  20. {
  21.  alarm (1);
  22.  
  23.  if (not _entry_pass)                        // no pass, so didn't recog. board
  24.   {
  25.    prints ("Sorry, I don't know the password for this BBS!");
  26.    return;
  27.   }
  28.  
  29.  If (not waitfor (" graphics? ->", 100))     // if no prompt for graphics
  30.    {
  31.     prints ("Log-on (graphics) failed!");
  32.     return;                                  // ...abort
  33.    }
  34.  
  35.  cputs ("y");
  36.  cputs ("^M");
  37.  
  38.  if (not waitfor (" name. ->", 180))         // if no prompt for name
  39.   {
  40.    prints ("Log-on (name) failed!");
  41.    return;                                   // ...abort
  42.   }
  43.  
  44.  cputs (user_name);                          // send name
  45.  cputs ("^M");
  46.  
  47.  if (not waitfor ("Password? -", 20))       // if no prompt for password
  48.   {
  49.    prints ("Log-on (password) failed!");
  50.    return;                                   // ...abort
  51.   }
  52.  
  53.  cputs (_entry_pass);                        // send pass
  54.  cputs ("^M");
  55.  
  56. }
  57.